home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / lib / c / stdio / RCS / fclose.c,v < prev    next >
Text File  |  1991-12-02  |  3KB  |  121 lines
  1. head     1.2;
  2. branch   ;
  3. access   ;
  4. symbols  sprited:1.2.1;
  5. locks    ; strict;
  6. comment  @ * @;
  7.  
  8.  
  9. 1.2
  10. date     91.06.03.17.40.00;  author kupfer;  state Exp;
  11. branches 1.2.1.1;
  12. next     1.1;
  13.  
  14. 1.1
  15. date     88.06.10.16.23.40;  author ouster;  state Exp;
  16. branches ;
  17. next     ;
  18.  
  19. 1.2.1.1
  20. date     91.12.02.19.55.19;  author kupfer;  state Exp;
  21. branches ;
  22. next     ;
  23.  
  24.  
  25. desc
  26. @@
  27.  
  28.  
  29. 1.2
  30. log
  31. @Add comment about what happens if the given stream is NULL.
  32. @
  33. text
  34. @/* 
  35.  * fclose.c --
  36.  *
  37.  *    Source code for the "fclose" library procedure.
  38.  *
  39.  * Copyright 1988 Regents of the University of California
  40.  * Permission to use, copy, modify, and distribute this
  41.  * software and its documentation for any purpose and without
  42.  * fee is hereby granted, provided that the above copyright
  43.  * notice appear in all copies.  The University of California
  44.  * makes no representations about the suitability of this
  45.  * software for any purpose.  It is provided "as is" without
  46.  * express or implied warranty.
  47.  */
  48.  
  49. #ifndef lint
  50. static char rcsid[] = "$Header: /sprite/src/lib/c/stdio/RCS/fclose.c,v 1.1 88/06/10 16:23:40 ouster Exp Locker: kupfer $ SPRITE (Berkeley)";
  51. #endif not lint
  52.  
  53. #include "stdio.h"
  54.  
  55. /*
  56.  *----------------------------------------------------------------------
  57.  *
  58.  * fclose --
  59.  *
  60.  *    Flush any remaining I/O and perform stream-dependent operations
  61.  *    to close off stream.  From this point on, no further I/O should
  62.  *    be performed on stream.
  63.  *
  64.  * Results:
  65.  *    EOF is returned if there is an error condition pending for
  66.  *    the stream, or if an error occurred during the close.
  67.  *
  68.  * Side effects:
  69.  *    The stream is closed.
  70.  *
  71.  *----------------------------------------------------------------------
  72.  */
  73.  
  74. int
  75. fclose(stream)
  76.     FILE *stream;        /* Stream to be closed. */
  77. {
  78.     int result;
  79.  
  80.     /* 
  81.      * If stream is NULL, we will eventually get a segmentation fault. 
  82.      * This is intentional, to point out a probable bug in the calling 
  83.      * program.  One could make a case for making fclose() more 
  84.      * forgiving about NULL streams, but this way we track what the 
  85.      * BSD guys are doing.
  86.      */
  87.  
  88.     result = fflush(stream);
  89.     if (stream->closeProc == NULL) {
  90.     return result;
  91.     }
  92.     if ((*stream->closeProc)(stream) == EOF) {
  93.     return EOF;
  94.     }
  95.     return result;
  96. }
  97. @
  98.  
  99.  
  100. 1.2.1.1
  101. log
  102. @Initial branch for Sprite server.
  103. @
  104. text
  105. @d17 1
  106. a17 1
  107. static char rcsid[] = "$Header: /sprite/src/lib/c/stdio/RCS/fclose.c,v 1.2 91/06/03 17:40:00 kupfer Exp $ SPRITE (Berkeley)";
  108. @
  109.  
  110.  
  111. 1.1
  112. log
  113. @Initial revision
  114. @
  115. text
  116. @d17 1
  117. a17 1
  118. static char rcsid[] = "$Header: atoi.c,v 1.1 88/04/28 17:20:23 ouster Exp $ SPRITE (Berkeley)";
  119. d46 8
  120. @
  121.